Read

library(tidyverse)
library(DT)
library(plotly)

csv <- "https://docs.google.com/spreadsheets/d/1lnmx4zAA8myRnW3cwnN5N4avg9RfYvqbiGj2zZ2nQJk/gviz/tq?tqx=out:csv&sheet=Form%20Responses%201"

d <- read_csv(csv)
datatable(d)
# View(d)

Visualize

hist

hist(d$`Rank your level of comfort in openly sharing data:`)

ggplot

p <- ggplot(d, aes(x = `Rank your level of comfort in openly sharing data:`)) +
        geom_histogram()
p

ggplotly

ggplotly(p)